home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / Layers.asm < prev    next >
Assembly Source File  |  1991-03-13  |  4KB  |  228 lines
  1. *
  2. *    Layers.asm for PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Graphics/Layers.i
  7. *
  8.  
  9.     SECTION PCQ_Runtime,CODE
  10.  
  11.     XREF    _LayersBase
  12.  
  13.     XREF    _LVOBeginUpdate
  14.     XDEF    _BeginUpdate
  15. _BeginUpdate
  16.     move.l    4(sp),a0
  17.     move.l    _LayersBase,a6
  18.     jsr    _LVOBeginUpdate(a6)
  19.     tst.l    d0
  20.     sne    d0
  21.     rts
  22.  
  23.  
  24.     XREF    _LVOBehindLayer
  25.     XDEF    _BehindLayer
  26. _BehindLayer
  27.     move.l    4(sp),a1
  28.     move.l    _LayersBase,a6
  29.     jsr    _LVOBehindLayer(a6)
  30.     tst.l    d0
  31.     sne    d0
  32.     rts
  33.  
  34.     XREF    _LVOCreateBehindLayer
  35.     XDEF    _CreateBehindLayer
  36. _CreateBehindLayer
  37.     movem.l    d2/d3/d4/a2,-(sp)
  38.     move.l    20(sp),a2
  39.     move.l    24(sp),d4
  40.     move.l    28(sp),d3
  41.     move.l    32(sp),d2
  42.     move.l    36(sp),d1
  43.     movem.l    40(sp),d0/a1
  44.     move.l    48(sp),a0
  45.     move.l    _LayersBase,a6
  46.     jsr    _LVOCreateBehindLayer(a6)
  47.     movem.l    (sp)+,d2/d3/d4/a2
  48.     rts
  49.  
  50.  
  51.     XREF    _LVOCreateUpfrontLayer
  52.     XDEF    _CreateUpfrontLayer
  53. _CreateUpfrontLayer
  54.     movem.l    d2/d3/d4/a2,-(sp)
  55.     move.l    20(sp),a2
  56.     move.l    24(sp),d4
  57.     move.l    28(sp),d3
  58.     move.l    32(sp),d2
  59.     move.l    36(sp),d1
  60.     movem.l    40(sp),d0/a1
  61.     move.l    48(sp),a0
  62.     move.l    _LayersBase,a6
  63.     jsr    _LVOCreateUpfrontLayer(a6)
  64.     movem.l    (sp)+,d2/d3/d4/a2
  65.     rts
  66.  
  67.     XREF    _LVODeleteLayer
  68.     XDEF    _DeleteLayer
  69. _DeleteLayer
  70.     move.l    4(sp),a1
  71.     move.l    _LayersBase,a6
  72.     jsr    _LVODeleteLayer(a6)
  73.     tst.l    d0
  74.     sne    d0
  75.     rts
  76.  
  77.     XREF    _LVODisposeLayerInfo
  78.     XDEF    _DisposeLayerInfo
  79. _DisposeLayerInfo
  80.     move.l    4(sp),a0
  81.     move.l    _LayersBase,a6
  82.     jmp    _LVODisposeLayerInfo(a6)
  83.  
  84.  
  85.     XREF    _LVOEndUpdate
  86.     XDEF    _EndUpdate
  87. _EndUpdate
  88.     move.w    4(sp),d0
  89.     move.l    6(sp),a0
  90.     move.l    _LayersBase,a6
  91.     jmp    _LVOEndUpdate(a6)
  92.  
  93.  
  94.     XREF    _LVOInstallClipRegion
  95.     XDEF    _InstallClipRegion
  96. _InstallClipRegion
  97.     move.l    4(sp),a1
  98.     move.l    8(sp),a0
  99.     move.l    _LayersBase,a6
  100.     jmp    _LVOInstallClipRegion(a6)
  101.  
  102.  
  103.     XREF    _LVOLockLayer
  104.     XDEF    _LockLayer
  105. _LockLayer
  106.     move.l    4(sp),a1
  107.     move.l    _LayersBase,a6
  108.     jmp    _LVOLockLayer(a6)
  109.  
  110.  
  111.     XREF    _LVOLockLayerInfo
  112.     XDEF    _LockLayerInfo
  113. _LockLayerInfo
  114.     move.l    4(sp),a0
  115.     move.l    _LayersBase,a6
  116.     jmp    _LVOLockLayerInfo(a6)
  117.  
  118.  
  119.     XREF    _LVOLockLayers
  120.     XDEF    _LockLayers
  121. _LockLayers
  122.     move.l    4(sp),a0
  123.     move.l    _LayersBase,a6
  124.     jmp    _LVOLockLayers(a6)
  125.  
  126.  
  127.     XREF    _LVOMoveLayer
  128.     XDEF    _MoveLayer
  129. _MoveLayer
  130.     move.l    4(sp),d1
  131.     movem.l    8(sp),d0/a1
  132.     move.l    _LayersBase,a6
  133.     jsr    _LVOMoveLayer(a6)
  134.     tst.l    d0
  135.     sne    d0
  136.     rts
  137.  
  138.     XREF    _LVOMoveLayerInFrontOf
  139.     XDEF    _MoveLayerInFrontOf
  140. _MoveLayerInFrontOf
  141.     move.l    4(sp),a1
  142.     move.l    8(sp),a0
  143.     move.l    _LayersBase,a6
  144.     jsr    _LVOMoveLayerInFrontOf(a6)
  145.     tst.l    d0
  146.     sne    d0
  147.     rts
  148.  
  149.     XREF    _LVONewLayerInfo
  150.     XDEF    _NewLayerInfo
  151. _NewLayerInfo
  152.     move.l    _LayersBase,a6
  153.     jmp    _LVONewLayerInfo(a6)
  154.  
  155.  
  156.     XREF    _LVOScrollLayer
  157.     XDEF    _ScrollLayer
  158. _ScrollLayer
  159.     move.l    4(sp),d1
  160.     movem.l    8(sp),d0/a1
  161.     move.l    _LayersBase,a6
  162.     jmp    _LVOScrollLayer(a6)
  163.  
  164.  
  165.     XREF    _LVOSizeLayer
  166.     XDEF    _SizeLayer
  167. _SizeLayer
  168.     move.l    4(sp),d1
  169.     movem.l    8(sp),d0/a1
  170.     move.l    _LayersBase,a6
  171.     jsr    _LVOSizeLayer(a6)
  172.     tst.l    d0
  173.     sne    d0
  174.     rts
  175.  
  176.     XREF    _LVOSwapBitsRastPortClipRect
  177.     XDEF    _SwapBitsRastPortClipRect
  178. _SwapBitsRastPortClipRect
  179.     move.l    4(sp),a1
  180.     move.l    8(sp),a0
  181.     move.l    _LayersBase,a6
  182.     jmp    _LVOSwapBitsRastPortClipRect(a6)
  183.  
  184.  
  185.     XREF    _LVOUnlockLayer
  186.     XDEF    _UnlockLayer
  187. _UnlockLayer
  188.     move.l    4(sp),a0
  189.     move.l    _LayersBase,a6
  190.     jmp    _LVOUnlockLayer(a6)
  191.  
  192.  
  193.     XREF    _LVOUnlockLayerInfo
  194.     XDEF    _UnlockLayerInfo
  195. _UnlockLayerInfo
  196.     move.l    4(sp),a0
  197.     move.l    _LayersBase,a6
  198.     jmp    _LVOUnlockLayerInfo(a6)
  199.  
  200.  
  201.     XREF    _LVOUnlockLayers
  202.     XDEF    _UnlockLayers
  203. _UnlockLayers
  204.     move.l    4(sp),a0
  205.     move.l    _LayersBase,a6
  206.     jmp    _LVOUnlockLayers(a6)
  207.  
  208.  
  209.     XREF    _LVOUpfrontLayer
  210.     XDEF    _UpfrontLayer
  211. _UpfrontLayer
  212.     move.l    4(sp),a1
  213.     move.l    _LayersBase,a6
  214.     jsr    _LVOUpfrontLayer(a6)
  215.     tst.l    d0
  216.     sne    d0
  217.     rts
  218.  
  219.     XREF    _LVOWhichLayer
  220.     XDEF    _WhichLayer
  221. _WhichLayer
  222.     move.l    4(sp),d1
  223.     movem.l    8(sp),d0/a0
  224.     move.l    _LayersBase,a6
  225.     jmp    _LVOWhichLayer(a6)
  226.  
  227.     END
  228.